isnet Internet/Isnet Internet CD.iso/prog/hiz/09/09.exe/adynware.exe/perl/lib/site/Win32.pm

Perl POD Document | 1999-12-28 | 911 b | 41 lines

package Win32;

require Exporter;
@ISA = qw(Exporter);
@EXPORT =
    qw(
    NULL
    WIN31_CLASS
    OWNER_SECURITY_INFORMATION
    GROUP_SECURITY_INFORMATION
    DACL_SECURITY_INFORMATION
    SACL_SECURITY_INFORMATION
    MB_ICONHAND
    MB_ICONQUESTION
    MB_ICONEXCLAMATION
    MB_ICONASTERISK
    MB_ICONWARNING
    MB_ICONERROR
    MB_ICONINFORMATION
    MB_ICONSTOP
);


sub NULL { (0);}
sub WIN31_CLASS { &NULL;}
sub OWNER_SECURITY_INFORMATION {(0x00000001);}
sub GROUP_SECURITY_INFORMATION {(0x00000002);}
sub DACL_SECURITY_INFORMATION {(0x00000004);}
sub SACL_SECURITY_INFORMATION {(0x00000008);}

sub MB_ICONHAND        { (0x00000010); }
sub MB_ICONQUESTION    { (0x00000020); }
sub MB_ICONEXCLAMATION    { (0x00000030); }
sub MB_ICONASTERISK    { (0x00000040); }
sub MB_ICONWARNING    { (0x00000030); }
sub MB_ICONERROR    { (0x00000010); }
sub MB_ICONINFORMATION    { (0x00000040); }
sub MB_ICONSTOP        { (0x00000010); }

1;